home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / Strings.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  954 b   |  49 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Strings.p
  3.  
  4.      Contains:    Pascal <-> C String Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1985-1993, 1996-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {
  19.     Note: All Pascal <-> C String routines have moved to TextUtils.h
  20.  
  21. }
  22. {$IFC UNDEFINED UsingIncludes}
  23. {$SETC UsingIncludes := 0}
  24. {$ENDC}
  25.  
  26. {$IFC NOT UsingIncludes}
  27.  UNIT Strings;
  28.  INTERFACE
  29. {$ENDC}
  30.  
  31. {$IFC UNDEFINED __STRINGS__}
  32. {$SETC __STRINGS__ := 1}
  33.  
  34. {$I+}
  35. {$SETC StringsIncludes := UsingIncludes}
  36. {$SETC UsingIncludes := 1}
  37.  
  38. {$IFC UNDEFINED __TEXTUTILS__}
  39. {$I TextUtils.p}
  40. {$ENDC}
  41.  
  42. {$SETC UsingIncludes := StringsIncludes}
  43.  
  44. {$ENDC} {__STRINGS__}
  45.  
  46. {$IFC NOT UsingIncludes}
  47.  END.
  48. {$ENDC}
  49.